LEX    'UNPRIVLX'
       ID     #5A
       MSG    0
       POLL   0
       LIST ON
tKYSck EQU    #0A35D
FSPECx EQU    #09F2D
FINDF+ EQU    #09F63
RAMROM EQU    #0A5F7
GETPR1 EQU    #06BFB
BSERR  EQU    #0939A
FTYPFD EQU    #11053
RDENTY EQU    #06A25
EDITXE EQU    #0A5CA
lFTYPh EQU    #00004
PURGDN EQU    #0A060
poll   EQU    #0A453
pFPROT EQU    #0000B
pPOLL2 EQU    #0A2F8
PRIVTP EQU    #03B82
NAMEdc EQU    #054E5
       ENTRY  UNPRV
       CHAR   #D
       KEY    'UNPRIV'
       TOKEN  1
       ENDTXT
       *
       REL(5) =NAMEDC
       REL(5) =UNPVp
UNPRV  GOSBVL tKYSck
       GONC   =SCR10
       GOSBVL FSPECx
       GOC    =SCERR
SCR10  GOSBVL FINDF+
       GOC    =SCEXT
       GOSBVL RAMROM
       GONC   =SPCOL
       GOSBVL GETPR1
       ?SB=0
       GOYES  =SCR20
SCERR  GOVLNG BSERR
SCR20  GOSBVL FTYPFD
       GONC   =PRV20
       GOSBVL RDENTY
       ?C#0   P
       GOYES  =SCR65
PRV20  GOVLNG EDITXE
SCR65  D1=D1+ lFTYPh
       A=DAT1 B
       LCHEX  D
       A=A&C  P
       DAT1=A 1
       GOVLNG PURGDN
SCEXT  ?ST=1  6
       GOYES  =SCERR
SPCOL  GOSBVL poll
       CON(2) pFPROT
       GOVLNG pPOLL2
UNPVp  GOVLNG PRIVTP
NAMEDC GOVLNG NAMEdc
       END